home *** CD-ROM | disk | FTP | other *** search
- on startMovie
- global gNumberofSlides, gCurrentSlide, gOnIBM, gSoundPath
- identifyPlatform()
- if gOnIBM then
- set gSoundPath to the pathName & "M19\"
- else
- set gSoundPath to the pathName & "M19:"
- end if
- formatText()
- set gNumberofSlides to 7
- end
-
- on formatText
- global gOnIBM
- if gOnIBM then
- set the textFont of field "chronology text" to "Arial"
- set the textSize of field "chronology text" to 12
- else
- set the textFont of field "chronology text" to "Geneva"
- set the textSize of field "chronology text" to 12
- end if
- end
-